home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / terminal / flexpac4 / sample.ctl < prev    next >
Encoding:
Text File  |  1993-12-12  |  4.4 KB  |  114 lines
  1. ***************************************************************************
  2. *                                                                         *
  3. * FlexPac Configuration File                                              *
  4. * ==========================                                              *
  5. *                                                                         *
  6. * This file is read by FlexPac every time you invoke a FlexPac script.    *
  7. * If you start FlexPac in normal mode, it automatically runs the 'INIT'   *
  8. * script which starts below.                                              *
  9. *                                                                         *
  10. * Feel free to modify or add any scripts you choose - this is YOUR file   *
  11. * to own or manage.                                                       *
  12. *                                                                         *
  13. ***************************************************************************
  14. *
  15. ***************************************************************************
  16. * initialization procedure - automatically started when FLEXPAC begins    *
  17. ***************************************************************************
  18. :init
  19. * NOTE: the following 3 commands (or your TNC's equivalents) are MANDATORY.
  20. *       Do not remove; just change to suit your system
  21. @cmd
  22. ECHO OFF
  23. COMMAND $03
  24. HEADERLI OFF
  25. * NOTE: the following 1 command (or your TNC's equivalents) is important, but
  26. *       if your TNC does not support it, don't worry!
  27. BBSMSGS ON
  28. *
  29. @mycall Cxxx
  30. @myname Nxxx
  31. * the next command runs the 'Lxxx' script to log on to your PacketCluster node
  32. Rxxx@do Lxxx
  33. : end of INIT procedure ***************************************************
  34. *
  35. ***************************************************************************
  36. * Connect to PacketCluster                                                *
  37. ***************************************************************************
  38. :Lxxx
  39. @ca off
  40. @clustercall Lxxx
  41. @cmd
  42. connect Lxxx
  43. @wait Cxxx de Lxxx
  44. @ca on
  45. * define F keys for use with Lxxx
  46. @def f1 show/con Lxxx
  47. @def f2 conference
  48. @def f3 dir/new
  49. @def f4 dir/own
  50. @def f5 @do ishere
  51. @def f6 @do isnohere
  52. @def f8 @log
  53. @def f9 @do exLxxx
  54. @def f10 @menu
  55. @keys Lxxx: F1=Who F3=Mail F4=MyMail F5=Here F6=NoHere F8=Log F9=Exit F10=Menu
  56. * set DX spots for separate window, not main screen
  57. @dx off screen
  58. @dx on window
  59. @tm on
  60. set/here
  61. @cls
  62. @say  Welcome To ...
  63. @say
  64. @say  FFFFFFFF  LL        EEEEEEEE  XX     XX  PPPPPP       AA       CCCCC
  65. @say  FF        LL        EE         XX   XX   PP    PP    AAAA    CC    CC
  66. @say  FF        LL        EE          XX XX    PP    PP   AA  AA   CC
  67. @say  FFFF      LL        EEEE         XXX     PPPPPP    AA    AA  CC
  68. @say  FF        LL        EE          XX XX    PP        AAAAAAAA  CC
  69. @say  FF        LL        EE         XX   XX   PP        AA    AA  CC    CC
  70. @say  FF        LLLLLLll  EEEEEEEE  XX     XX  PP        AA    AA   CCCCC
  71. : end of LLLL  ************************************************************
  72. *
  73. ***************************************************************************
  74. * Some small scripts to control HERE and NOT HERE status                  *
  75. ***************************************************************************
  76. :ishere
  77. set/here
  78. @tm on
  79. : end of ISHERE
  80. :isnohere
  81. set/nohere
  82. @tm off
  83. : end of ISNOHERE
  84. *
  85. ***************************************************************************
  86. * F Key setup when not logged on to PacketCluster                         *
  87. ***************************************************************************
  88. :basekeys
  89. @clustercall none
  90. @def f1 @do Lxxx
  91. @def f2 connect wb2coy via clv
  92. @def f9 @do shutdown
  93. @def f10 @menu
  94. @keys F1=Lxxx  F2=COYBBS  F9=Shutdown  F10=Menu
  95. : end of BASEKEYS procedure *************************************
  96. *
  97. ***************************************************************************
  98. * Log off the PacketCluster                                               *
  99. ***************************************************************************
  100. :exLxxx
  101. b
  102. @wait 73 de Lxxx
  103. @wait *** DISCONNECT
  104. @do basekeys
  105. : end EXLxxx  *********************************************
  106. *
  107. ***************************************************************************
  108. * Clean shutdown of the TNC and end FlexPac                               *
  109. ***************************************************************************
  110. :shutdown
  111. @cmd
  112. @exit
  113. : end of SHUTDOWN
  114.